home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / BADSIEV2.MOD < prev    next >
Text File  |  2000-09-26  |  869b  |  38 lines
  1. MODULE sieve;
  2.  
  3. (* $L+ *)
  4.  
  5. FROM InOut  IMPORT  Read, Write, WriteString, WriteCard, WriteLn;
  6.  
  7. CONST
  8.     SIZE = 8190;
  9.     ITER = 10;
  10.  
  11. VAR
  12.     flag                    :ARRAY [0..SIZE] OF BOOLEAN;
  13.     i, j, k, count, prime   :CARDINAL;
  14.     ch                      :CHAR;
  15.  
  16. BEGIN
  17.     WriteString("Hit a key to start 10 ITERATIONS");
  18.     Read(ch);  WriteLn;
  19.     FOR i := 1 TO ITER DO
  20.         count := 0;
  21.         FOR j := 0 TO 10000 DO
  22.             flag[j] := TRUE;
  23.         END;
  24.         FOR j := 0 TO SIZE DO
  25.             IF flag[j] THEN
  26.                 prime := j+j+3;
  27.                 k := j+prime;
  28.                 WHILE k <= SIZE DO
  29.                     flag[k] := FALSE;
  30.                     INC(k,prime);
  31.                 END;
  32.                 INC(count);
  33.             END;
  34.         END;
  35.     END;
  36.     Write(7C); WriteCard(count,4);
  37. END sieve.
  38.